ZLA 




4 



7 



4 



N 
4 



N 



4 



N 



zLk 



A N 



4 



7 



7 



zLU 



zl 



4 



N 



NT7 



Z 



4 



Zl 



^ z 

7 ^ 



4 



4 



4 



V N 



7 



zLA 



^"7 



N 
4 



4 



zLA 



K 4 



F N 



Zl 



V 
A 



\~7 



A 



7 



^ ^ TECHN 

zla zla zLA 

4===* 4==* 



LOG 



4 



I\ 4 



P7 ^ 



7 



4 



A 4 



7 ^ 



N 
4 



zLA 



7 



^ 4 



N 

4 



4 



k 4 



7 ^ 



4 



4 



Nk 



N 



4 



i\ 4 



17 N; 



7 



W TV N~I7 

DR. JOHN MANtOTES 
k COM^^RTECHIJ^kpGYDEfW^ 



A N 



7 



7 



k 4 



4=4 



4 



N V 

N17 

zLA 



7 



4 



V 



4JlB|UlE(4«i«i«feiTY4 ^ 

\heAt^MErtd[?rFtos n v 

*MMMOND,wbl6323 NK 



A 



7 



7 



7 



4===fc 



4 



K 4 



J7 ^ 



4 



Nl7 

zlA 



k 4 
k 4 



T7 ^ 
TT7 ^ 



4 

A 4. 



F N 



a 



7 



AA ZlA zlA 

4==* 



4-N 



zLA 



NT 7 
/I IS 



* *=* 4 



NK 

zlA 



4 



4 



A 4 



A 4 
N 4 



F N 

7 



V 
zlA 



7 



zLA 



k z] 
N 4 



7 



fcv Zl 



7 ^ 



NT 7 

zLA 



4 



ztA 



P 7 
A 



44^ 



7 



NT 7 



7 



N17 



N 

4 



44^ 



N17 



/l K 



4 



44^ 



zl 



t7' 



k 4 



^T7 



Z| N 

A L 



\~7 



4 



^ z 

7 ^ 



4 



N 



7 



7 



^"7 



4 



t7 ' 



A 



k 4 



7 ^ 



^17 



N17 



NT 7 



4 



4 



4 



7 ^ 



K A 



7 ^ 



k 4 



7 



V 



A K 



7 



NV7 



4 



k 4 



7 ^ 



A N 



7 



7 



^rl7 



K 4 



7 ^ 



zlA 



7 



7 



4 



N 



*--4 



zlA 



4 



4 



4 



4 



4 



^~7 



N17 

/l N 



K Zl 



7 ^ 



K 



7 



7 



7 



ZLA 



zLb. ZLA ZLA 

4=t 4==4 *ft 

\! 1/ VI 1/ Ni7 



N 

4 



4 



zl 



7 



17 



4 



N 

4 



4 



A 4 



7 ^ 



K 4 



7 \ 



N 4 



7 ^ 



Ni7 

A N 



Nl7 



4 



7 



^"7 



4 



zl 



7 



U 4 



P N 



7 



V 



7 



7 



4 



K 4 



7 



V 



/I N 
NY 



Hi ,CMOMMAM 



DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
COMMON, as to the accuracy and functioning of the program 
and related program material, nor shall the fact of distribution 
constitute any such warranty, and no responsibility is assumed 
by the contributor or COMMON, in connection therewith. 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

^^Program No. Date 



Program Name:_ 



1. Does the abstract adequately describe what the program is and what Yes \ No_ 

it does ? 

C om m ent 

2. Does the program do what the abstract says? Yes No_ 

Comment 



3. Is the description clear, understandable, and adequate? Yes Nq_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

C om m ent 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable ? Yes Nq_ 

Comment 

5. Does the source program compile satisfactorily (if applicable) ? Yes No_ 

_ Comment 

© : 1 : 

6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes Nq_ 

Comment 

8. Does the Program meet the minimal standards of COMMON? Yes No_ 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment 



10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 

Company 

Mr. Richard L. Pratt 

Data Corporation Address 

7 500 Old Xenia Pike 



Dayton, Ohio 45432 Users Group Code 



THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AND 
EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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RELOCATABLE PLOT SUBROUTINE 
FORTRAN II-D 



LebertR. Alley 

Center for Research 

and Data Processing 

Central Missouri State College 

Warrens burg, Missouri 

Code: 3249 

December 13, 1965 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 
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ABSTRACT 



RELOCATABLE PLOT SUBHOUTINt— Foh.ThA.-J II-D 



Lebert R. Alley 

Center for Research and Data Processing 

Central Missouri State College 

Warrensburg, Missouri 

December 13, 1965 

Users Group Membership Code — 3249 

Direct Inquiries to above Nane and Address. 

Description/Purpose ; Relocatable Plot Subroutine for Fortran 
II-D plots arguments of 19 independent n-dimensional arithmetic 
functions having a range between 1.0 and 80.9. Digits are 
automatically assigned to each arithmetic statement involving 
the subroutine call word and then punched into a card column 
corresponding to the nearest integral value of the argument. 
All possible argument values are handled by either causing a 
punch in a card when the argument is between 1.0 and BO. 9 or a 
descriptive error message to be typed. Subroutine applicable 
to virtually all scaled arithmetic statements and especially 
suited to harmonic functions. 

Storage Used bv, Program : 530 

Equipment ; Card, Disk and Drive, Indirect Addressing, 1620 Model i. 
Programmed in ; SP3 II-D 

Type of Program: Subroutine, for use with FORTR-H II-D 



CONTENTS 



wKITEUP UF PRuGkrtM 



FLU* GiiAttT 



PhuGhAM. LISTING 



LOADING PttuCEDURE 



LISTING UF SAMPLE PKuGttM 



RESULTS UF SAMPLE PhOGKiiM 



c 



DECK KEY 



Source deck including the control records 
used for loading. 
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RELOCATABLE PLOT SUBRO UTINE — FORTRAN-II-D 



December 13, 1965 
Lebert R. Alley 

Center for Research and Data Processing 
Central Missouri State College 
Warrensburg, Missouri 
Phone—747-9571 

Users Group Membership Code — 3249 

Relocatable Plot Subroutine for Fortran IJ-D graphs an un- 
limited number of independent n-dimensional floating point 
arithmetic functions having a range between l.Q and 80.9. 

Identification characters are automatically assigned by the 
subroutine to each Fortran JI-D statement involving the sub- 
routine call words and then punched into a card column 
corresponding to the nearest integral value of the floating 
point argument. Identification characters are subroutine- 
generated by assigning 1 tq the first plot statement in a 
source program or the first statement following the call word 
PU)TP. Each succeeding plot statement is assigned a character 
one greater than the preceding character until the next 
character value would be 11. At that point the character 
generating portion of the subroutine begins assigning,_in 
sequential order,, single flagged digits, 1, 2. 3, ...,9. "These 
digits are interpreted on the IBM 407 to be—*, K, L, ...,R. 
Any number of statements from 1 through 18, having the PLuT 
call word may be used in a single plotting loop. 

Equation plotting is carried out by including the call word(s) 
PLOT and/or PU>TF in a loop in the. source program. Pi«0T is 
the name regularly used in an arithmetic statement to be plotted. 
However, the last statement in every plotting loop must have PLOTP 
rather than PLOT. PLOTP is a second entry point to the subroutine 
which causes the argument values of all PLOT statements encountered 
since the first of the program or the last PLOTP statement to be 
represented on a single punched card. "vJhen the source programmer 
wishes to plot only a single function in a loop, PLOTP is used for 
that function. 

The use of PLOT in an arithmetic statement does not in any way alter 
the left hand member of that statement. 
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The argument of a PLOT source statement must be in 
floating point mode. The value of this argument must be 
between 1.0 and 80.9. Fractional parts are not rounded off. 
If the source program attempts to plot any value exclusive 
of the plotting range, the subroutine will type a message of 
the form: 

XSmmmmmmmmCC . 

This means that the function identified by X cannot be 
plotted at the value which follows in floating point form. 
All functional values niust have an eight digit mantissa. 

Whenever the operator wishes to disregard the subroutine 
error messages, time can be saved by turning on Console Switch 
4 to prevent continuation of the message output. 
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LOAD 
ARGUMENT 



PLOTP 
ENTRY 



SET 
ROUTINE 

FOR PLOTP 



ARG. 
NEG. 



YES 



<T1.0 



NO 



YES 



ARG. 
>1.0 VJ2S_ 



NO 



ERR. 



I 



RESET 
ID 

CHARACTER 



I 




SET 
ONE E 
A 


FOR 

IGIT 

RG. 






< 


TRANSMIT 
ID 

CHARACTER 



_ , 1 


NO 


SET 


FOR 


TWO DIGIT 


ARG. 




BK&tfCil 
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**SPS 



*L|BR 

*HAME PLOTP 

♦ASSEMBLE RELOCATABLE 
*STQRE RELOADABLE 
*ID NUMBER 0026 
★LIST TYPEWRITER 



PLOT 



SUB PSA -PLOTP.PLOT 
00009 00005 00030 . 

DORG *-4 

PLOTP TF 
TDM 
TF 
SM 
TF 

RLCCM 
ADJUST BNH 

SM 

TWT 
AM 



TTT 



CHAR 
LOARG 



HIARG 



B 

~CTT 
BH 

B7 

BL 
W 



PLOT- 1, PLOTP- 1,01 
fttC+7,7,01 

FAc.pioT-i.in — 

PLOT-1 .2.010 
FAC-2,#L0T-1. 
CHAR+9.09.010 

CHAR+9. 12.010 

♦-23JI0 

CHAR+9 .01.010 
LOARG. FAC-2,0 



ERROR.. 078 
FAC.0! 10 
HIARG. .0 

uH t uic; 



r 



TWODIG A 



ONEDIG 



*7 

TP 

SM — 

SETPIG TO 

TFST 

BO 

"BUI BB2 

FIN ISH TFM 
WED 

TDM 

TFM - 

CLERAR TP 



ERR0R.!l 

FAC-8,81,10 

TWO I G.J 

ERROR, ,! 

SETPI6+6 .FAC-8.0 
SCT0I6.J 

SETols+6.,17 

BLANKS-40 .CHAR+9 . 
SETOI6+6.iLANKS^ 
F1HISH.RLC+7.01 
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BB2 



AM 

SM 

mr 

TFM 
TBM" 
BB2 



CNMt+9,00.010 

BLANKS*3d!»0 

mi\i f 

BLANKS-39 . BLANKS+4 1 ,012 
CLERAR+6, 1,010 
CLERAR-4' 1^010 

CLERAR,.! 

tfe jPUH ttf-39,0 17 



00004 00005 00006 



26 00029 00005 

m%mm 



S30 25 02492 00025 



HI 26 




00162 

00174 46 00246 01200 



00320 
00356 



00368 
00180 



00392 

-0*404. 



00362 
00152 



00578 



IH8 



00416 . 
00428 42 



nSRROTT TO FAC+1 ,CHAR+1 1 , F 

B C4 ♦+4 8., 

WNTY CHAR+9, ,0 



00430 25 02493 00149 
00442 56 00490 00400 



WNTY FAC-9 



RCTY 

B7_ 



00454 38 00147 00100 
00466 38 0248 3 0100 



DNB 

J2£_ 



BLANKS DNB 
DNB 

TAC OS 
PEMD 



BB1-12 , t 
1,CHAR+10 
J,P,CHAJt+11 



41 

^02492 



00478 Ik 
00149 



00102 
00294 00000 



H 55 Z 
#•578 

02492 
00402 



TIONS REQUIRED PLUS RELOCATION INCREMENT 




op 



Ortl 
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LOADING IkOCEUURE 



1. CnecK card deck with listing. 

2. Determine DIM Numbers of entry points. Pi.uTP = 0026 
and PLOT = 0027 if the user has added none of his own 
FOKTkAN II-D library programs. 

3. Load Source deck with control cards shown on following 
Subroutine listing. 

4- Define Second Entry Point, Pj^oT, with; 



**DUP 

✓ 

* DFLIBI liOT XX 



More detailed information on loading procedures 

are available directly from the author upon request. 
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SAMPLE FORTRAN PRUGRM USING PLOT 



**F<*X5 



X - 1V0 
A - 0.0 
1.0 

PLOT (40.0) 



PLOT((SIN(Z))*38."»J»0.| 



- PLOT((SIN(X))*40.+40 t . 

- PL0TP( (C0S(Z)+C0S(3.*Z) )*20.+i»0. ) 

- X*1.02 

- Z-K05 
» A+1V 

IF(A-252V)1.1,2 
CONTINUE 
END 



00676 CORES USED 
T9999 NEXT COMMON 
END OF COMPIUTION 
EXECUTION 

4S>834 1260000 
^1727920000 
W070000002 
4@5403480000 
3PB64 18400&0 
3027891 f 




3^63170001 
3f986117500|0 
4^57042f " - 
►1370C 
i3588€ 
1636521 
W4677 
97352! 
J53482 
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